#!/src/bin/perl -w
#Cette solution marche mais avec un warning
print "Saisi le rayon de cercle :\n";
$r = <STDIN>;
if($r)
{
	$perimetre = $r*$r*3.14;
	print "Le perimetre de cercle = ".$perimetre."\n" ;
}